^~«x wi ^ H** 



LABEL OOOOOOOOOLINE 00176362? COMPILE NUCANOE/TSHARER WITH TSPQL LIBRARY TSPOL /NUCANDE 

"burroughs' b-5/oo tspol c° mP heR mark xvi.o.oo mqnqay# iz/zi/it* 2131 pm, 

NUCANOE/TSHARER 

- - . ..... :i:«:::::i:3::i 



2&U321..B *LIST, LABEL* OR SEGMENT DESCRIPTOR* 

PRTC23) ■ *OUTER BLOCK DESCRIPTOR* C^Al"^ 

PRT(24) * *SEGMENT DESCRIPTOR* P£*T~ 

_.RfiJ.t25X = COMMON / 

PRTC26) - L lZ>/zX/7* 

PRT (27 ) ■'" D I SK BOT T M 

EftLUfl) ..." FLAGS .. 

PRTC31) * OUGSAROUND 
PRT (32) '■ TTY INPUT 
PRTC33) * HORK 



PRT(34) * OATAOFFSETT 



PRT<35) * DATAWORDS 

_EJBIL3j6J 5.J3ATADXSKL.OC 

PRT<37) ■ ROWINUSE 



PRT(40) * OOGCATCHERS 
JB11A1J. _■ 80WC.Q.UN.T 



PRT<42) « TIMENOW 



PRTC43) * NUDCOUNT 

1AILAA1 _5_JJAfi£lL£U]£. 

PRTC45) « TANKFlLE 



PRT(46) ■ TANKSIZE 
PRTC 47) » JL_L_._ 



PRT(50) « LLPREV 
PR f ( 51) * CLOCK 



PRTC52) « CLOCKPREV 

PRTC53) * WAITBH 

f.H 1(54} * RE. A SON 

PRT(55) * ASTOR 

PRT(56) * DATE 

___PRXt57) s I AM 

PRT(60) « DOING 

PRTC61) ■ WANT 

-ERIXMO- a EHH-SW 

PRT(63) * BASE 

PRT(6A) = TEMP 

__ERTtftS.l. ■ PAR AM 

PRTC66) * WAITFQR 

PRTC67) = PREVRCW 

—ERLCJiU . ». ... USE.RBASE 



PRT(71) * SREG 
PRTC72) * SCW 
..J&.IC11). * RCW 
PRT<74) « STACKSIZE 
PRTC75) ■ PROCESSLIMIT 



PRTC77) * CORESIZE 



PRT(IOO) ■ COMMQNVAtUE 

-RRJ-UOU ....■ WQRKAQRS 

PRTC102) ■ WORKENDADRS 

PRT(103) =» ESPTABLE 

MUX IQA ) .a C IRANflB A_S E 



PRTC105) * DOGHOUSE 
PRT(t06) a 'VERB TABLE 



Jb. M» 



m 


PRT(i07) 


* TYPETABLE 


•t~ 


PRT(llO) 


* RESWRDTABlE 


^■p 


PRT(jll) 


« EVENTS 




PRTCU2) 


* EVENT 




PRT(H3) 


■"line 




. PR! (114) 


= LLCONTROL 




PRT(U5) 


* SYSTEM 


^^k 


PRTCil6) 


'■ SCANPTR 




PRT(H7) 


= TOBECONTROL 




PRTC120) 


* TOBEDONE 




PRT(121) 


■ ^SEGMENT DESCRIPTOR* 




- PHI CI 22) 


■ DISKlO 




PRTC123) 


* C0MM2 




PRTC124) 


■ NEXTEVENT 




_. P_RJ.C125) 


..." SEIESPfllSK 




PRT(126) 


* PORGETESPOISk 




PRTU27) 


* REQUEST INPUT 




_ PBII13Q) 


..» FjQfi.GETUS£fi.DISti 




PRTC131) 


* DISKWAIT 




PRT(132) 


* TWXQuf 




PRT.C1131 


..".AIIQUTSTURE 




PRTC134) 


» LI TOUT 




PRT(135) 


■ BLANK 




PRT(13#) 


« CC15 - 




PRTC137) 


■■ LOGON 




PRT(140) 


* LOGOFF 




PRT(141) 


* DISCONNECTED 




PRT(142) 


« RUNJQB 




PRTC143) 


* READTAPE 









PRT(U«) • CCCOM 

PRU145) « *SEGMENT DESCRIPTOR* 

_J»BXU46-) JUHO.UE 

PRTC147) * BLANK 

PRTCJ50) « DECCONV 

_ERIU5U fi E-UUSER 

STACK(F+2) = WORD 
ST*CKCF+3) s' I 

-&TACKCE-*A.l s -IBY6 

STACKCF-t-5) a LENGTH 

PRT(152) "To'UNTZERO 
-_P_R1U53J J-. DYNAMIC DIALS 



PRTC154) * BLACKOUT 
STACKCF+2) * I 

-eflitis&x-g-oa- - 



STACKCF+3) * *TEMPQRARY STORAGE* 



PRTC156) =» CLEAR 
-P-flI.C 1 5 7.J-S- IlREitaEQ ... 
PRTC160) » TIMEOFDAY 



PRTC161) * TIMECONV 

.S^ACK^F^i) « -AP 

STACK(F+4) a HRS 



STACK(F+5) a MIN 
STACK(F»6 ) a SEC 

STACKCF+7) a TSEC 



PRTC162) a ST 
-EftlnAH-JL. .MAJJ££N. 
PRTQ64) * F.N 
PRTC165) a CHKpT 



PRTC166) s CANCELCKPT 



PRT(J67) « UATECONV 
STACK(F>3) .s M 
STACK(F+4) = D 



STACKCF+5) * Y 
_SIA£K-CX±M 5 t 
PRT(170) » OCTCONV 



PRTC171) a FILESAWAY 
-STA4K4F-+2J * Tl 



STACKCF+3) * T2 



PRT(172) » FNONLY 
ERJQ73) s.GEWFILlNE 
STACKCF+2) * X 
STACKCF+3) a D 
_PR-II1Z4J.._* ...ITP.EOML.Y 



PRTC175) * ERROR 



PRT(176) * DOGSLOOSE 
_SJA£Klf + 3.? ?„LL 



STACK(F+*) a T 

"PRTC177) '"■ FINOALETTER 

±Blt2QOJ._s_EJ4QALE.T-IEH.- 



PRTC201 ) ■ FINOAWORD 



PRTC202) * FNOAwORD 
PRT(203) « ENIER.ESP 



STACK(F+2) = DELINK 



STACK(F+3) - FORGET 

^T.ACjK_tE+_«l ._»_i 

STACK(F+5) * WORD 



PRTC204) ■ SCAN 



PRTC205) *> SCN 

PRTC206) * *LIST> LABEL, OR SEGMENT DESCRIPTOR* 

PEIC207) * *LIST' LABEL, OR SEGMENT DESCRIPTOR* 

PRT(210) * *LIST# LABEL, OR SEGMENT DESCRIPTOR* 

PRTC211J * YL1UFINDAVERB 

-PR T (2 1 2 } a Y Q UF N D A V E R B 

PRT(213) * ADDRESS 

PRTC214) = STICK 

PRIC215) s FIXERRQR 

PRT<216) = FXERROR 

PRT<217) = *LIST> LABEL, OR SEGMENT DESCRIPTOR* 

-P_RI<220) 3 SCANNER 

STACK(F+2) * I 

STACKCF+3) = K 
..-SJTAC-K-U^fti -5 P 

STACKCF+5) s S 

STACKCF+6) = MS 

JUAQ&iF+J ). .* TYPE 

STACKCF+10) * VERBS 
STACKCF+li ) ' ■' PLUSORMINuS 
SIACK if * 1 2 ) . . * . £ RRF L G 
STACK(F+13) ■ PLUS 

PRT (221 ) * *HST, LABEL, OR SEGMENT DESCRIPTOR* 

JtBlSZZZ} ■ .*L1 STf.„ LABEL,. QR. SEfiMENT DESCRIPTOR* 

PRT(223) = *LIST* LABEL, OR SEGMENT DESCRIPTOR* 

"pRTC224)'"« *LIST, LABEL, OR SEGMENT DESCRIPTOR* 

-FJ.KZ25.} -.5 *LI..5.7> LABEL*. .OR SEGMENT DESCRIPTOR* 

PRTC226) ■ *LIST* LABEL, OR SEGMENT DESCRIPTOR* 

PRTC227) » "*Ll"3TV" LABEL, OR SEGMENT DESCRIPTOR* 



PRT(230) * *LIST* LABEL, OR SEGMfcNT DESCRIPTOR* 

PRT(231) = *LIST* LABEL, OR SEGMENT DESCRIPTOR* 

PRTC232) * *LIST/ LABEL, OR SEGMENT DESCRIPTOR* 

PRT(233) - *LIST* LABEL, OR SEGMENT DESCRIPTOR* 

PRTC234) = *LIST> LABEL, OR SEGMENT DESCRIPTOR* 

PRTC23-5J- * ..CHECKS IT 

PRT(236) * CHANGEWHICH 

STACKCF+3) = T 

STACK<F*ft) -s S 

STACKCF+5) « WHICH 

STACKCF+6) = SRC 

STACK<F*7J a 08 J 

STACKCF+10) = L 

PRT(237J = EXIT 

. P JLI.I 2 ,4Q ) = g p t q s l v E R 

PRT(241) a TIMECHK 
STACK CF + 3) ■'fi'Ml 

_STjA£8XE + 4).. = T J M 2 ... 



STACKCF+5) - SKP 
~ST/rCK(F + 6l" = OK 
J_ILL_2__Z- = TIMCK 

PRT(2ft3) a NEXTIME 
~PRT(244) ■ TIMEMSG 
.ERIC 2A5X---g.--MS.G_L_.- - 



PRT(246) * MSG2 



PRTC247) * MSG3 

±filX2___L-_»_Jl_L_L4_. 

PRTC251) » OUTPUTNUMBERS 

"stackTf"+2) ="i " 



a 



STACKCF+3) * PTR 

STACKCF+4) * LST 

_S-TAGK<^+W - INC 



STACKCF+6) s LF 
PRT(252) ■ ADDRESS 

PR T( a-5 34 a-CONV-ER-T-ANftPfiKM. 

PRT<254> = PUTCHAR 



PRT(255) = BYE 

,_PRJX2 5 6 )..s_ (i£ T SXIM £ I H I t^UDO . 
PRT(257) * SSMSQ 
PRT(260) * KEMEMBERTHIS 

—ER112A1 J .?... HCPJtS .G 



PRTC262) * LINECLEAR 



PRTC263) * SETUPFILES 

P R T ( 2 6 4 J_g-IHl&CAlC*ifefl- 
PRT<265) * GETPSWO 



PRT(266) * GTPSWD 

.E&IUAZl.. ■ *U.SI> LABEL* QR^SEGHEN T. PES CR I P TOR * 

PRTC270) » *LIST> LABEL, OR SEGMENT DESCRIPTOR* 



PRTC271) = HITHEKE 

PRT(272j- s. „AMS-_ 
PRT(273) * LNO 



PRT(274) = PSWRD 
PRT(275) * C.HRG _ 

STACKCF+2) * I 



STACK(F+3) = T 
4*AG*-< f +44--*- USR- 
STACKCF+5) s FIL 



STACK(F+63 a MTCH 



♦t 



PRTC276) = *CASE STATEMENT OESCRlPTUR* 
PRTC277) =>"*LIST» LABEL, OR SEGMENT DESCRIPTOR* 
_PBL(L3.0Q..l .■...*! 1 51> LABF.L, OR SEGMENT DESCRIPTOR* 
PRTC301) s *LIST> LABEL, OR SEGMENT DESCRIPTOR* 



PRTC302) » *LI5T> LABEL, OR SEGMENT DESCRIPTOR* 
_EHl<JA3l ..a BREAK 
PRTO04) = WRU 

PRTO05) = INITIALIZECTrANDBASE 

_EHlC3ilAi ■ use&siuie 



PRTC307) * ERR 

sTac~kcf+2) * I 

SJ A CK IF + 3 3 = U S ER F I LE H E A D £ R 
PRTOIO) = OISKCHUNK 
STACK (F +2) = XTRAOSK 



PRTC311) * DISCONNECT 



PRTC312) = SPECIAL 
J»J8Jtai3 J a IJjiP.UTQA.XA 



PRTC3H) s BUILDADATAEVENT 

STACKCF+2) = COUNT 
PRTC315) > KLAGBIT 

PRTC316) * INCOMPLETEMSg 
PRT ( 3 II 7 "} ■' RE START I T 

.-SIACKI£a2J...s._.I 

PRTC32Q) * FINDFLAG 



PRTC321) * FLAGMESSAGE 

PRT C 322)-° Q.K. _ 



PRTC323) * SPEC 

PRT(324) = *CASE STATEMENT DESCRIPTOR* 






STACKCF+2) ■ T 

PRTC325) = MAKFBOJMSG 

._J»Rl4a2AJ = SQUASH 

PRTC327) * EXAMINE 

PRTO30) * ERRORMESSAGE 

_PAT.C3JU » CLDnUT 

PRTC332) » NUDISKMESS 

PRT<333) ■ MCPOK 

.F-R-T-t 3 34 ) = UKM£ SS 

PRT(335) * MAKEQKEVENT 

PRTC336) = UKMESS 

_PR.Ii33.70 = TEACHER 

STACK(F+2) = T 

STACK(F+3) a PTR 

_&XACKtF>A> ■■«- IHDX 



STACKCF+SJ * X 

PRTC340) s *LIST* LABEL, OR SEGMENT DESCRIPTOR* 

..£fUL3_UJ ..■ INPUT 

PRT(342) « OUTSUPR 

PRT(343> * PLSWAIT 
-BBJU44-) ... » FXXtRRORMSG 



STACKCF+2) s T 
STACK(F+3) a E 
_P„aiX3A5J « * CASE SIA TEMEN.I ..0E.5CR1P.TUR* 



PRT(346) = *CASE STATEMENT DEScRIPTUR* 



PRTC347) « DISPATCH 

-&IL4CKIE4-2-) b. CHUNKS.. 

PRT(350) ■ DISKREAO 
PRTC351) = OOPS 



PRT<352) s COMPILEIT 
STACKCF+2) a T 
. STACK CF + 3) = Tl 

STACKCF+4) * T2 
PRTC353) * tRRORMtSSAGE 
PRTC354) * *CAS£ STATEMENT DESCRIPTOR* 
STACKCF+2) s T 
PRf(355) * MKER 
PRTC356} * CLOSEHQBKTAB.LE 
PRT(357) * *CASE STATEMENT DESCRIPTOR* 
PRTC360) s CHNGPSWO 
.ERXC36U * QLDPSWD 
PRT(362) * NEWPSWD 
PRTC363) = VFYPSWD 
_E8T-X.3A4J..-« SCANPS.WD 



PRT<365) * *CASE STATEMENT DESCRIPTOR* 

PRT (366) « THYME 

_ER11J.6.7.1 ...» CARRIAGE 



STACKCF+2) = T 



PRTC370) = *CASE STATEMENT DESCRIPTOR* 

-PJ.IX3..7U .!.. CHNGNAW.E 

PRTC372) * IMEWNAME 



PRTC373) * SAVENAME 

PRT( 1 7 Ai-«.~*CA5E aiA.IE.WENT HESCfi I P.T .Off* 

PRTC375) ■ MONITORR 



STACKCF+2) = PC 
S T A CiiX£AXL-g„MIiaiL 



PRTC376) * *CASE STATEMENT DESCRIPTOR* 



PRTC377) « SETIT 



E3 

A" 



• 



• 



STACK(F+2) ■ NC 
STACK (F+3) * PTR 

_&Ii£KX£.*4J ■.. WQRQ 

STACK(F+5) = MAXPTR 



STACKCF+6) = TYPE 
__ SXA CK (E*Zj..a SETB.IT . 

• STACKCF+10) ■ X 

PRTUOO) = *CASE STATEMENT DESCRIPTOR* 

P-RT-C-44W4 -- -S-SFJtE 

• STACKCF+23 » I 

STACKCF+3) = LIN 
31A£Hif±4JL.= PC 



STACKCF+5) = REKS 
STACKCF+6) = LINMAX 

StACKLE*Z-l_.g.. -W.QH.Q. 

• STACKCF+10) * MAXSREG 



PRTC402) * *CASE STATEMENT DESCRIPTOR* 

PRTU0 34-Jg LXJ-T- 

STACKCF+ll) = *TEMPORARY STORAGE* 
PRTC404) = EQUATE 

-SlAC,KC-F-»24 a._4 - 

3TACK(F+3) a K 



STACKCF+4) - WORD 
STAC K CFJK5 JL -5-iiHll .. 
STACK(F+6) ■ TYPE 



STACK(F+/) = NAM 
STACK-CEUO) -a -NAH1- 
STACKCF+ll) » NAM2 



STACKCF+12) * VERBV 



.« 






STACKCF+13) = MAXSREG 
STACK(F + U) s'euVAL 
S TACK(F +15) »_.O.S.K 
STACKCF+16) » BKUP 
STA"CK(F + 17) = EOLTOG 
ST ACK(F*-20 i..m F4LIX1G. . 



STACK(F+2l) = U8TQG 

STACKCF+22) = CHECKTYPE 

SIJ.CKjC£*.2J1..s ._auQT 

STACKCF+24) n Ql 



STACK(F+25) = Q2 

-STJICK4-F-+26-I .*.. FQ^MT-QG 
STACKCF+27) = NOLABEL 

STACKCF+30) = FA3T0G 
-S1ACK C.E.*.3X1 _s SUIWIQG 
STACKCF+32) = EuTOG 



PRTU05) = FILEIO 
JBBlLA06X-M-*£AStE. S IA I EMEN T 0E5.GRI P I Q R * 



PRTU07) * 'SEGMENT DESCRIPTOR* 



PRTC410) * ERR 
JP&I141L1 = EXIT 



PRTC412) = *SEGMENT DESCRIPTOR* 
PR f (i 13) i * SEGMENT DEScRfp TOR* 

-PRIXM 4J... * .CHECK. _ 



PRTU15) » *SEGmENT DESCRIPTOR* 



PRT(416) s STATUSCHECK 

S TACKCF+2 ) = CPU 

STACKCF+3) * 10 



STACK(F-f^) * SEQ 



m 



PRTU17) = MESSAGE 

PRTU20) « *CASE STATEMENT DESCRIPTOR* 

PAIXA21.X = FRM 

PRTU22) « SPOUT 

PRTU23) * BZY 

__SJ-ACKCF-*2J = GOTQNE 

STACK(F+3) * T 

STACKCF+4) a WORD 
-P-R-U424-) ■«. .*LIS-T-* LABEL, OR SEGMENT DESCRIPTOR* 

PRTU25) * *LIST* LABEL, OR SEGMENT DESCRIPTOR* 

PRTU26) = *LIST» LA8EL, OR SEGMENT DESCRIPTOR* 

- PRTU27) = PDIT 

STACKCF+2) * I 

PRTU30) = FORM 

PRTX43JJ. * *C.A 3.E S lAl EMENT QE S C R J P T Q R * 



PRTC432) ■ CQPYjT 

STACKCF+2) = INPCOUNT 

„£IAQMI±1} * OUT COUNT 

STACKCF+4) * PREVNUMBER 

STACKCF+5) = WORD 

STACKCF+7) * UNITNUMBER 
STACKCF+10) « FILNAM1 
_STJ£K1F. ti 1 ). .=. F I L N A M 2 



STACK(F+12) = FILNAM3 
STACKCF+13) ="saVE«6rD 
AU.ZKiIf.lM • _N£ARAMS._„ 



STACK(F+15) a VERB 
STACK(F + 16 ) * T Q G W R D 



STACKCF+17) « WINDUP 

PRTU33) s *CASE STATEMENT dESCRIPTOK* 

PRTC434) ? *SEGm£NT DEScRIPTBR* 
PRTC435) * EXIT 
._._..__ ^„ ^ * SEGMENT DESCRIPTOR* 

PR I C 437 J s ERA OR 

PRTC440) * *SEGMENT DEScRlPTSR* 

PRTU41) = *SEGMENT DESCRIPTOR* 

..P.BJU42) = * SEGMENT DES.CRIPT8R* 

PRTC443) ■ *SEGMENT DES C RI0TOR* 

PRT(444) * *SEGMENT OES C RIBTOR* 

.HHT.U45) b ^SEGMENT OEScRlPTQR* 
PRT(446) = SEQ 

PRTC447) = QUTSUPR 
.P_R.T.U5.Q1..?.SIQ£QM 



STACK(F+2) * PC 



STAcK(F+3) « I 
.-S_IA£K.C.F.*4 J a WORD 



STACK(F+5) a SEQNO 
SfACk (F + 6j * I NCR 
STACK(F»7) «.._S EfiO U T 



STACKCF+2) * T 



PRTC451) * MAKENEWFILE 
_S_T_ACKX£±£J £ I 



STACK(F*3) a MAXSREG 



PRTU52) * MSG 

JtHHA53J_JLJJlAj£_SIAIEl!OilJ_Jl£l£^ * 

PRTC454) * *LIST» LABEL, OR SEGMENT PESCRIPTOR* 



PRTC455) » *LIST> LABEL, OR SEGMENT DESCRIPTOR* 



PRTU56) * LISTIT 
STACKCF+2) - PREVW 
STACK (F*l->-»-JtOflD 



STACK(F+4) = TYPE 
STACKCF+5) * CHAR 

-*^AC-K-eF-^)-— - R-G 



STACK(F+7) * I 



STACKCF+10) * Wi 
-S-T-AC*<-F>444 ■--= • -t4-S 
STACKCF+12) * SQUASH 



STACKCF+13) = CHANGES 
_SXACK-CF^ i 44 s N UMBERE.P- 



STACKCF+15) * DISPLAY 



PRT(457) ■ NOCHGMSG 

P R T U 6 >-j_JL CASE., S T A T EM e N T— QE5CB1EJJD.B » 

PRTU61) * *CASE STATEMENT DCSCRIPTU8* 



PRTC462) * EXIT 
PRTU6 3) ' „EX E C.U. T E 
STACKCF+2) * T 



STACKCF+3) ■ MAXSREG 

PRTUAA4 ■ . « CA5.L ..-&LAIEM£NI.. D E S C ft I FT U K » 

PRTU65) » *SEGMENT DESCRIPTOR* 



STACK(F+«) - WORD 

STACK XX±lL-£-JJJ iJIflfi G_Lf_ 



STACKCF+6) a LIBTOGGLE 



STACKCF+7) = 08JECTT0GGLE 
-gRU-aA6X-g- F.INQNUMBER-, 



PRTC467) * ERR 



PRTU70) s EXIT 



PRTU71) * CASEl 

PRTU72) - 'SEGMENT DESCRIPTOR* 
_RHLU7-i)_« LOAD IT 

STACKCF+2) * T 

PRTC474) « *CASE STATEMENT DESCRIPTOR* 
-BMJX.-4Z54 -m SAVER 

STACKCF+2) s T 

STACK (F+3) = F 
JEB1 C4Z6J = .. * C A S E SI A T £ M£ NT D E 5 C 8 IP T U R * 



PRTC477) * REMOVE 

STACK (F + 2) = S 

._.. u*catxF.O)....» o 

STACK(F+4) = WC 

STACKCF+5) ■ PC 

STACK(F + 6) = I 

STACKCF+7) » X 



PRTC500) » CHANGE 
_&IACJU£±2J * T 



PRTC501) - *CASE STATEMENT DESCRIPTOR* 



PRT(502) = *CASE STATEMENT DEScRIPTUR* 
PRTC503) = RENAMEIT 



PRTC504) * *CASE STATEMENT DESCRIPTOR* 



PRTC505) = WHATSIT 
STACKCF+2) _= __TM 



STACKCF+3) * TP 



STACKCF+4) = DATE 



STACK(F+6) * SLASH 
STACKCF+7) * I 



STACKCF+10) = PC 
STACKCF + U) = WORD 

.RBHSQA)..* MSG 

PRTC507) * *CAS£ STATEMENT DESCRIPTOR* 

PRTC510) = EXIT 

PRIC511J ..■ (iUARDlT 

PRT(512) = LOCKIT 

STACKCF+2) = I 
-SJ-AG-MF+3) .a PC 

STACK<F + <»} = IMAX 

STACK(F+5) = WORD 

STACK CF+6) = LOK 

STACKCF+7) * UNLK 

STACK CF+ 10) = PuB 
.SJCACJUF+jn = WQRKF1LE 



STAcK(F+12) ■ NAM1 
~SfACK(F + t3)"«' NAM2 
..STlGKCf >.U ) = SRC 

STACKCF+15) s OBJ 

STACK(F+16) ~ WTH 

-SiACKCF^in a. slash 

STACKCF+20) = NAM3 
STACK(F+21) = NAM4 

STMKlF-±2-2± ..a. F-OHfiE T SE-T 



PRTC513) ■ *CASE STATEMENT DESCRIPTOR* 
PRTC514) ""■' EXIT 

-FJUXM5) ...» TAPExr 

STACK(F+2) = T 
STACKCF + 3) « WORD 



STACKCF+4) * 5Q 

PRT(516) * *CASE STATEMENT DESCRIPTOR* 

..PR.U517J = CHARGE IT 

STACKCF+2) ■ T 



PRTC520) ■ SCHEDULE 
STACK CF ±21 ..= AFTER 
STACKCF+3) * LIB 



STACKCF+4) - TOIT 

..SIACKIFaS) » W.QfiQ 

STACKCF+6) s TYPE 

STACK CF+7) = PC 

_SI1CKXF*10) = I 

PRT(521) * *CASE STATEMENT OESCRlPTQR* 
PRT(522) = *CASE STATEMENT DESCRiPTQK* 

.£RIX&2JU-..= .EXIJ: 



PRT(52fl) ■ SCHEDSTATUS 



STACK(F+2) = T 
.PR.U5..25J =. SJME.SS 

PRTC526) ■ *CASE STATEMENT DESCRIPTOR* 
__ __ _.._.... _ ..„ ._ ._ .... ^ 

STAC K(F+2) x FROM _ 

STACK(F+3) m TOO 



STACK(F+4) s SPECS 
S TAC KC F+ 5 1_ g-UJ&H AL . 



STACKCF+6) * HAVELITERAl 



STACKCF+7) * HAVEOUTPUT 
STACK(F»10)--^ HAVEUS&B-- 
STACKCF + U) * I 



STACKCF+12) ■ PC 



STACK(F+13) = WORD 
STACKCF+14) = NAMECOUNT 

..S-TACK-Cf + lSJ s TYPE 
PRTC530) * HEAOING 

PRTC531) - OUTFQRMAT 
_E&T.CSl321_.?L..P_BJNTIT 



STACKCF+2) ■ I 
STACKCF+3) = SECNAM 

-PBI45330 s CHK 



PRT<534) s GETTYPE 



PRT(535) * MASK 
_PR 1(5 3.6J s .. *.CA 5 E S T A T E M£ N T Q E 5 Q R 1 P T K * 



PRTC537) * *SEGMENT DESCRIPTOR* 



PRT(540) = ERR 
-P-RIC 54 1 ) ^.LXLL. 



PRTC542) =■ RUNIT 



PRT(543) * *SEGMENT DESCRIPTOR* 
_P_RIt5AiLL._*_..UPli.A.TE 



PRT(545> » *CASE STATEMENT DESCRIPTOR* 



PRTC546) * SPECSCAN 
PRU£4-74~s 5-PC-SCAJi 



PRK550) « *LIST» LABEL, OR SEGMENT DESCRIPTOR* 



PRTC551) = *LIST» LABEL, OR SEGMENT DESCRIPTOR* 
P R T ( 5 5 2 ) _ *-.*L-l.Stx.-LABEL ♦■. - Q R S E GMEN-T DESCRIPTOR* 



PRTC553) » REPLACEIT 



STACK(F+2) s VOCAB 
STACK CF- *3X~.sl~X — 



STACKCF+4) « IADR 



STACK(F+5) * OADR 



•*_■»• 



STACKCF+6) * AROADR 



STACKCF+7) =» ENDADR 
SJACKlt+lO) = TYPE 
STACKCF + H) * SIZ 
STACK(F+12) = VSI2 

..5.IACK tE*1.3J = WW I C« 
PRTC554) * ERRVALUE 

PRT(555) ■ CNVERT 
..PR.IC.55AJ = CLEAR STACK 



PRT(557) = SETL 
> R 1(560) * b AVE IT 

_P.BIX.561 3. = SET VO.C A 8 
PRTC562) * *CASE STATEMENT DESCRIPTOR* 

PRT(563) * *SEGMENT DESCRIPTOR* 

^B1X5j6.A .)-.*. .EX.11 



PRTC565) * CASEl 



PRT(566) = *SEGMENT DESCRIPTOR* 

.P-R.IC5.6I1 ... =. *§£GWENI DESCRIPTOR* 

PRT(570) = *SEGmENT DEScRIPTSR* 

PR T{ 571 5 ■ BIT NUMBER 
.S1ACKXF+2J. ..■ LINK 



STACK(F+3) * W 

STACKCF+4) * T 

£1A£&LL±S1 «._.S. 



STACKCF+2) = LINK 



STACK(F+3) ■ W 
STACKXX*AJ = .IL 



STACK<F+5) * I 



STACK(F+6) * COUNT 



STACKCF+7) = LCOUNT 
STACKCF+10) - LMAX 

PRTC5J2) = FINISHED 

PRTC573) * PLSLOGOFF 

PRTC574) * TELLHlMBYE 

_PR1XSZ5) s TI.MEQK 

PRTC576) * ANOTHEROPERAtION 

PRT(577) s HANDLETHISLINE 

-PR-H6O0) . ■* *CASE STATEMENT DESCRIPTOR* 

PRTC601) = RUNCANDE 

PRT(602) = *LIST* LABEL, OR SEGMENT DESCRIPTOR* 

_PRTC603) = INITIAL! ZECAnDE 

PRT(604) = SETUPC0MM2 

PRTC605) = ADDRESS 

RRJX&OA) «... .SP.QLQ.QflN 



STACKCF+2) = VRB 
STACK(F+3) = N 
.._PRIC.6Q7) * SETBIT 

PRTC610) ■ *SEGMENT DESCRIPTOR* 

PRTC611) • *SEGMENI DESCRIPTOR* 
BR-T.C-5) ■ ■* BLOCK -CONTROL ■ INTRINSIC* SEGMENT NUMBER 8 146, 

PRTC240) * GO TO SOLVER INTRINSIC* SEGMENT NUMBER * H*9. 

PRTCH) * ALGOL WRITE INTRINSIC* SEGMENT NUMBER s 150. 

_-.RR.lU5)* ALGOL REAO INTRINSIC* SEGMENT NUMBER * 151, 

PRTU6) » ALGOL SELECT INTRINSIC* SEGMENT NUMBER * 152, 

PRTC153) * dynamic dials Intrinsic* segment number x 153, 

-NUMBER OF. ERRORS OETECIeD. ...?... 0. COMPILATION TIME * 349 SECONDS, 

PRT SIZE ■ 394; TOTAL SEGMENT SUE s 10797 WORDS* DISK SIZE * 540 SEGSJ NO, PQM, SEGS « 153 
ESTIMATED CORE STORAGE REQUIRED '« 11468 WORDS, 



I- * 



.-» ■>, *m 



* - >- 



-* *>* 






*» *>v 



ESTIMATED AUXILIARY MEMORY KEQUIKED ? WQKDS. 
NUMBER OF CARD-IMAGES PROCESSED ■ 7605. 



LABEL OOOOOOOOOLINE 001/6362? COMPILE NUCANDE/TSHARER WITH TSPQL LIBRARY 



TSPOL /NUCANDE 




